home *** CD-ROM | disk | FTP | other *** search
/ GFX Sensations 1 / Graphic Sensations - Volume 1.iso / com_net / mail / thor / thor.lha / rexx / PrintMsg.thor < prev    next >
Encoding:
Text File  |  1994-08-06  |  533 b   |  28 lines
  1. /* PrintMsg.thor · by Petter Nilsen and Troels Walsted Hansen
  2. ** $VER: PrintMsg.thor v1.0 (07.06.94)
  3. **
  4. ** Prints the current message on the printer
  5. */
  6.  
  7. options results
  8.  
  9. if(substr(address(),1,4) ~= "THOR") then do
  10.     parse arg portname
  11.     if~(show(p, portname)) then do
  12.         if ~(show(p, "THOR.01")) then do
  13.             say "No THOR port found!"
  14.             exit
  15.         end
  16.         else portname = "THOR.01"
  17.     end
  18. end
  19. else portname = address()
  20.  
  21. address(portname)
  22.  
  23. SAVEMESSAGE CURRENT FILENAME '"prt:out_msg"'
  24.  
  25. REQUESTNOTIFY TEXT '"Printing started..."' BT '"_OK"'
  26.  
  27. exit
  28.